home *** CD-ROM | disk | FTP | other *** search
/ Play Windows 1995 October / CD [playwin].bin / mac / demo / 00102.ls < prev    next >
Encoding:
Text File  |  1995-08-11  |  257 b   |  14 lines
  1. on mouseUp
  2.   puppetSprite(8, 1)
  3.   set the castNum of sprite 8 to 52
  4.   updateStage()
  5.   sound playFile 1, "click"
  6.   repeat while soundBusy(1)
  7.     nothing()
  8.   end repeat
  9.   set the castNum of sprite 8 to 46
  10.   updateStage()
  11.   puppetSprite(8, 0)
  12.   go("hc3p")
  13. end
  14.